home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / comm / fido / wpl_intro.lzh / bin / restart < prev    next >
Text File  |  1993-01-28  |  1KB  |  38 lines
  1. failat 999
  2.  
  3. ; carefull! - This has to be an active slave port name - A generic method will 
  4. ; be set up soon that will involve wpl.library
  5. rx "exit showlist('p','SLAVE2')"
  6. if ${RC} eq 1
  7.   rx "address 'SLAVE2' 'abort'"
  8.   echo "Already running copy of WPL Slave2 aborted"
  9. endif
  10.  
  11. rx "exit showlist('p','SLAVE1')"
  12. if ${RC} eq 1
  13.   rx "address 'SLAVE1' 'abort'"
  14.   echo "Already running copy of WPL Slave1 aborted"
  15. endif
  16.  
  17. ;  Now, get the logging system up and running if it's not already.
  18. rx "exit showlist('p','WELMATLOG')"
  19. if ${RC} eq 0
  20.   run >nil: logproc
  21.   rx "exit showlist('p','WELMATLOG')"
  22.   if ${RC} eq 0
  23.     echo "Waiting for Log proc"
  24.     waitforport "WELMATLOG"
  25.   endif
  26.   echo "Log port ready"
  27.   rx "address 'WELMATLOG' 'OpenLog file f network:logs/wpl.log'"
  28.   rx "address 'WELMATLOG' 'OpenLog wind w RAW:690/100/680/160/NewLog Window/inactive'"
  29.   rx "address 'WELMATLOG' 'AddLogSes all wind file'"
  30. else
  31.   echo "Logging System already active"
  32. endif
  33.  
  34. echo "Launching WPL"
  35. newshell window "raw:780/0/150/255/WPL Consol/inactive/backdrop" from network:bin/startWPL
  36. waitforport SLAVE2
  37. newshell window "raw:930/0/450/255/WSCHED Consol/inactive/backdrop" from network:bin/startwsched
  38.